home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / copy some.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  201 lines
  1. 10 REM" [195]OPY-[211]OME 1541 [214]ERSION 2.2
  2. 15 [143]"
  3. 20 REM"  BY [208]AUL [203]ELLAM
  4. 25 [143]"   105 (null)UTELA LEFT$EIGHTS (null)D.
  5. 30 REM"   [194]RANTFORD, [207]NTARIO
  6. 35 [143]"   (null)3(null) 1ATN4
  7. 40 REM"
  8. 45 [143]" ATNNY COMMENTS, QUESTIONS OR SUGGESTIONS
  9. 50 REM" ARE WELCOME.
  10. 55 [143]"
  11. 60 REM" [206][207][212][197] : [198]OR AN DECREASE IN THE # OF
  12. 65 [143]"        TIMES IT IS NECESSARY TO SWITCH
  13. 70 REM"        DISKS, COMPACT THIS PROGRAM
  14. 75 [143] "        USING 'CONSTRICTOR.C' FROM (null)(null)(null)CHR$
  15. 80 REM"        DISK # D4
  16. 85 [143]"
  17. 86 REM ***                          ***
  18. 87 REM" *** [211]ET UP [214]ARIABLES & [195]OLOUR***
  19. 88 [143] ***                          ***
  20. 90 [139] F[178]1 [167] 95
  21. 91 F[178]1:[147]"COPY SOME ML.D",8,1
  22. 95 [151]53280,6:[151]53281,15:[153]"LOAD"
  23. 100 F[178]0:[151]52037,[194](56):[151]56,[194](46)[170]11:[151]52036,[194](46)[170]12
  24. 105 [151]52038,[194](55):[151]55,255:[151]51,255:[151]52,[194](56):[156]
  25. 110 [134] DT$(50),DS$(50),FT$(50),NF$(50),NL$(50),NH$(50),NB%(50)
  26. 190 NF[178]0:TD$[178]""
  27. 194 [143] ***                         ***
  28. 195 [143]" *** STR$ISPLAY/LENHOOSE OPTIONS  ***
  29. 196 REM ***                         ***
  30. 200 PRINTCHR$(14)"[147][151]"SPC(10)"[195]OPY-[211]OME 1541 V2.2"
  31. 205 PRINTSPC(9)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  32. 210 PRINTTAB(18)"[152]BY [208]AUL [203]ELLAM"
  33. 220 PRINT" F1 [151][211]ELECT [211]OURCE [196]ISK & [198]ILES/[208]ROGRAMS"
  34. 230 PRINT"     TO BE COPIED."
  35. 240 PRINT" F3 [151][211]ELECT [212]ARGET [196]ISK."
  36. 245 IF TD$>"" THENPRINT"[152]    ([195]URRENTLY '";TD$;"')"
  37. 250 PRINT" F5 [151][208]ERFORM [195]OPY [208]ROCEDURE."
  38. 255 IF RP%=1 THEN PRINT"[152]    ([206]O FURTHER DATA READS REQUIRED.)"
  39. 260 PRINT" F7 [151][197]XIT FROM [208]ROGRAM."
  40. 280 PRINT"    [208]RESS KEY FOR DESIRED OPERATION."
  41. 290 WAIT 198,1:GET OP$:OP=ASC(OP$)
  42. 300 IF OP<133 OR OP>136 THEN 290
  43. 310 IF OP<>136 THEN GOTO 320
  44. 312 PRINT"[147][151] [199]OOD-BYE !":CLR:POKE55,PEEK(52038):POKE56,PEEK(52037)
  45. 314 POKE51,PEEK(55):POKE52,PEEK(56):END
  46. 320 ON OP-132 GOSUB 1000,1500,2000: GOTO 200
  47. 999 END
  48. 1000 REM ***                        ***
  49. 1001 REM "*** [196]ETERMINE [198]ILES/[208]ROGS  ***
  50. 1002 [143] "*** TO BE LENOPIED.          ***
  51. 1003 REM ***                        ***
  52. 1010 NF=0:PRINT"[147][151] [201]NSERT [211]OURCE [196]ISK.":GOSUB 9000:PRINT"[147][151] [208]LEASE WAIT..."
  53. 1020 RP%=0:OPEN 15,8,15:OPEN 2,8,2,"#"
  54. 1030 INPUT#15,EN,EM$,ET,ES:IF EN<>0 THEN CLOSE2:CLOSE15:GOTO 1000
  55. 1040 PRINT#15,"U1:2,0";18;0
  56. 1050 PRINT#15,"B-P:2,144"
  57. 1060 SI$="":FOR I=1 TO 20:GET#2,BY$:SI$=SI$+BY$:NEXT
  58. 1064 PRINT"[147] [211]OURCE: [152]"SI$
  59. 1065 PRINT"[151] [195]HOOSE PROGRAMS/FILES TO BE COPIED."
  60. 1070 PRINT#15,"B-P:2,0":GET#2,T$,S$
  61. 1080 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
  62. 1090 IF T=0 OR T>35 OR S>20 OR NF=51 THEN 1230
  63. 1100 PRINT#15,"U1:2,0";T;S
  64. 1110 FOR I=0 TO 7:IF NF=51 THEN 1220
  65. 1120 PRINT#15,"B-P:2";I*32+2
  66. 1130 GET#2,FT$(NF):IF ASC(FT$(NF)+CHR$(0))<129 THEN 1220
  67. 1140 GET#2,DT$(NF),DS$(NF)
  68. 1150 NF$(NF)="":FORJ=1TO16:GET#2,BY$:NF$(NF)=NF$(NF)+BY$:NEXT
  69. 1160 PRINT"[152] [195]OPY [151]"NF$(NF)"[152] (Y/N) ?";
  70. 1170 WAIT 198,1:GET CH$:IF CH$="N" THEN 1210
  71. 1180 IF CH$<>"Y" THEN 1170
  72. 1190 PRINT#15,"B-P:2";I*32+30:GET#2,NL$(NF),NH$(NF):IF NL$(NF)=""THENNL$(NF)=CHR$(0)
  73. 1195 IF NH$(NF)="" THEN NH$(NF)=CHR$(0)
  74. 1197 NB%(NF)=256*ASC(NH$(NF))+ASC(NL$(NF))
  75. 1200 NF=NF+1
  76. 1210 PRINTSPC(11);"[145]    "SPC(18)"       "
  77. 1220 NEXTI:GOTO 1070
  78. 1230 CLOSE2:CLOSE15:RETURN
  79. 1500 REM ***                        ***
  80. 1501 REM "*** [210]EAD [212]ARGET ID         ***
  81. 1502 [143] ***                        ***
  82. 1510 TD$[178]"":[153]"LOADPOKE RIGHT$NSERT (null)ARGET STR$ISK.":[141] 9000
  83. 1515 [153]"LOADPOKE (null)LEASE WAIT..."
  84. 1520 [159] 15,8,15:[159] 2,8,2,"#"
  85. 1530 [132]15,EN,EM$,ET,ES:[139] EN[179][177]0 [167] [160]2:[160]15:[137] 1500
  86. 1540 [152]15,"U1:2,0";18;0
  87. 1550 [152]15,"B-P:2,144"
  88. 1560 [129] I[178]1 [164] 20:[161]#2,BY$:TD$[178]TD$[170]BY$:[130]
  89. 1570 [160]2:[160]15:[142]
  90. 2000 [143] ***                        ***
  91. 2001 [143] "*** LENOPY (null)ROCEDURE         ***
  92. 2002 REM ***                        ***
  93. 2010 PRINT"[147]"
  94. 2020 IF NF=0 THEN PRINT" [211]ELECT SOURCE & FILES FIRST, PLEASE!"
  95. 2030 IF TD$="" THEN PRINT" [211]ELECT TARGET DISK FIRST, PLEASE!":GOTO 2040
  96. 2035 IF TD$=SI$ AND NF<>0 THEN PRINT" [211]OURCE & [212]ARGET DISKS HAVE SAME ID!"
  97. 2040 IF NF=0 OR TD$="" OR TD$=SI$ THEN GOSUB 9000:RETURN
  98. 2045 F1=0:B1=0:F2=0:B2=0:IF RP%=1 THEN 2210
  99. 2047 RP%=1
  100. 2050 BN=PEEK(52036):POKE51978,BN:POKE52008,BN
  101. 2055 REM ***                        ***
  102. 2056 REM "*** [210]EAD SOME DATA         ***
  103. 2057 [143] ***                        ***
  104. 2060 [153]"LOADPOKE RIGHT$NSERT (null)OURCE STR$ISK.":[141] 9000:[153]"LOADPOKE(null)LEASE WAIT..."
  105. 2070 [159] 15,8,15:[159] 2,8,2,"#"
  106. 2080 [132]15,EN,EM$,ET,ES:[139] EN[179][177]0 [167] [160]2:[160]15:[137] 2060
  107. 2090 [152]15,"U1:2,0";18;0
  108. 2100 [152]15,"B-P:2,144"
  109. 2110 SO$[178]"":[129] I[178]1 [164] 20:[161]#2,BY$:SO$[178]SO$[170]BY$:[130]
  110. 2120 [139] SO$[179][177]SI$ [167] [160]2:[160]15:[137] 2060
  111. 2125 [139] B1[178]NB%(F1) [167] B1[178]0:F1[178]F1[170]1
  112. 2130 [139] F1[178]NF [167] 2200
  113. 2135 [139] BN[178][194](52037) [167] RP%[178]0:[137] 2200
  114. 2140 [139] B1[178]0 [167] T$[178]DT$(F1):S$[178]DS$(F1)
  115. 2145 T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0))
  116. 2150 [152]15,"U1:2,0,";T;S
  117. 2160 [152]15,"B-P:2,2"
  118. 2170 [158] 51968
  119. 2180 BN[178]BN[170]1:B1[178]B1[170]1
  120. 2190 [152]15,"B-P:2,0":[161]#2,T$,S$:[139] S$[178]"" [167] S$[178][199](0)
  121. 2195 [137] 2125
  122. 2200 [143] ***                        ***
  123. 2201 [143] "*** (null)RITE THE DATA         ***
  124. 2202 REM ***                        ***
  125. 2210 CLOSE2:CLOSE15:BN=PEEK(52036):POKE 52008,BN
  126. 2220 PRINT"[147][151] [201]NSERT [212]ARGET [196]ISK.":GOSUB 9000:PRINT"[147][151][208]LEASE WAIT..."
  127. 2230 OPEN 15,8,15:OPEN 2,8,2,"#"
  128. 2240 INPUT#15,EN,EM$,ET,ES:IF EN<>0 THEN 2210
  129. 2250 PRINT#15,"U1:2,0";18;0
  130. 2260 PRINT#15,"B-P:2,144"
  131. 2270 TA$="":FOR I=1 TO 20:GET#2,BY$:TA$=TA$+BY$:NEXT
  132. 2280 IF TA$<>TD$ THEN 2210
  133. 2290 IF B2=NB%(F2) THEN B2=0:GOSUB 2500:F2=F2+1
  134. 2295 IF EN>0 THEN E=1:GOTO 2900
  135. 2300 IF F2=NF THEN 2440
  136. 2310 IF B2=0 THEN GOSUB 2700:IF EN>0 THEN E=2:GOTO 2900
  137. 2315 IF RP%=1 THEN 2340
  138. 2320 IF F2=F1 AND B2=B1 THEN CLOSE2:CLOSE15:GOTO 2050
  139. 2340 PRINT#15,"B-P:2,2"
  140. 2350 SYS 52001
  141. 2352 T3=T2:S3=S2
  142. 2355 IF B2=NB%(F2)-1 THEN T3=0:S3=255:GOTO 2400
  143. 2360 PRINT#15,"B-A:0";T3;S3
  144. 2370 INPUT#15,EN,EM$,T4,S4
  145. 2375 IF EN=0 THEN GOTO 2400
  146. 2380 IF (EN=65 AND T4=0) OR (EN>0 AND EN<>65) THEN E=3:GOTO 2900
  147. 2385 IF T4=18 THEN T4=19:S4=0
  148. 2390 IF EN=65 THEN T3=T4:S3=S4:GOTO2360
  149. 2400 PRINT#15,"B-P:2,0"
  150. 2410 PRINT#2,CHR$(T3);CHR$(S3);
  151. 2420 PRINT#15,"U2:2,0";T2;S2
  152. 2430 BN=BN+1:B2=B2+1:T2=T3:S2=S3:GOTO 2290
  153. 2440 CLOSE2:CLOSE15:RETURN
  154. 2500 REM ***                        ***
  155. 2501 REM "*** [195]REATE [196]IRECTORY [197]NTRY ***
  156. 2502 [143] ***                        ***
  157. 2510 T4[178]18:S4[178]1
  158. 2520 [152]15,"U1:2,0";T4;S4:I[178]0
  159. 2530 [152]15,"B-P:2";I[172]32[170]2
  160. 2540 [161]#2,BY$:[139] [198](BY$[170][199](0))[179]129 [167] 2630
  161. 2550 [139] I[179]7 [167] I[178]I[170]1:[137] 2530
  162. 2560 [152]15,"B-P:2,0"
  163. 2570 [161]#2,BY$,BZ$:BY$[178][199]([198](BY$[170][199](0)))
  164. 2572 [139]BY$[179][177][199](0)[167]T4[178][198](BY$[170][199](0)):S4[178][198](BZ$[170][199](0)):[137] 2520
  165. 2575 [160] 2
  166. 2580 [159] 2,8,2,"(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z,P,W"
  167. 2585 [132]15,EN,EM$,ET,ES:[139] EN[177]0 [167] [160]2:[159]2,8,2,"#":[142]
  168. 2590 [152]2,[199](99);:[160]2
  169. 2600 [152]15,"S0:(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z(null)Z"
  170. 2605 [159] 2,8,2,"#"
  171. 2610 [152]15,"U1:2,0";T4;S4
  172. 2620 [137] 2560
  173. 2630 [152]15,"B-P:2";I[172]32[170]2
  174. 2640 [152]2,FT$(F2);[199](T1);[199](S1);NF$(F2);
  175. 2650 [152]15,"B-P:2";I[172]32[170]30
  176. 2660 [152]2,NL$(F2);NH$(F2);
  177. 2670 [152]15,"U2:2,0";T4;S4
  178. 2680 EN[178]0:[142]
  179. 2700 [143] ***                        ***
  180. 2701 [143] "*** STR$ETERMINE FIRST T & S  ***
  181. 2702 REM ***                        ***
  182. 2710 PRINT#15,"B-A:0,1,0"
  183. 2720 INPUT#15,EN,EM$,T1,S1:ET=T1:ES=S1
  184. 2730 IF EN=0 THEN T1=1:T2=1:S1=0:S2=0:RETURN
  185. 2740 IF EN<>65 OR (EN=65 AND T1=0) THEN RETURN
  186. 2750 PRINT#15,"B-A:0";T1;S1
  187. 2760 T2=T1:S2=S1:EN=0:RETURN
  188. 2900 REM ***                        ***
  189. 2901 REM "*** [197]RROR WHILE WRITING    ***
  190. 2902 [143] ***                        ***
  191. 2910 [153]" ATNN ERROR HAS OCCURRED DURING WRITING !"
  192. 2920 [153]"POKE"EN","EM$","ET","ES
  193. 2930 [153]" (null)HE COPY PROCEDURE HAS BEEN ABORTED."
  194. 2940 [152]15,"V0":[160]2:[160]15
  195. 2950 [141] 9000:[137] 200
  196. 8990 [143] ***                        ***
  197. 8991 [143] "*** (null)AIT FOR RESPONSE      ***
  198. 8992 REM ***                        ***
  199. 9000 PRINT"       [208]RESS ANY KEY WHEN READY."
  200. 9010 WAIT 198,1:POKE 198,0:RETURN
  201.